home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_2 / guispell-1.0 / rexx / ttx / wordspell.ttx next >
Text File  |  1992-03-25  |  1KB  |  42 lines
  1. /*
  2.  *  WordSpell.ttx ... ARexx Program to spell check a word while in TurboText
  3.  *  Requires ISpell version 2.1ljr (or later) with ARexx Server mode and TurboText
  4.  *  Started: 12/19/89
  5.  *  Updated for CED v2.0: Tue Jan 23 03:11:24 1990
  6.  *  Last update: Fri Feb  1 07:46:30 1991
  7.  *  Copyright (C) 1989, 1990, 1991  Loren J. Rittle
  8.  *  Use as you will, just document your changes and keep my copyright
  9.  *  notice intact.
  10.  *  Updated for TurboText: Tue May 14 02:29:33 1991 by Christopher A. Wichura
  11.  *  Reworked for GUISpell public release: Thu Mar 26 02:12:39 1992 LJR
  12.  */
  13. options results
  14. if pos('IRexxSpell',(show(ports))) = 0 then do
  15.     address command 'runback ispell -r >null: <null:'
  16.     address command waitforport 'IRexxSpell'
  17. end
  18.  
  19. GetWord
  20. item = result
  21.  
  22. GetCursorPos
  23. parse var result line column fold .
  24.  
  25. GetPort
  26. portname = result
  27.  
  28. address 'IRexxSpell' quickcheck item
  29. if result = 'bad' then do
  30.     if pos('GUISpell',(show(ports))) = 0 then do
  31.         address command 'run <nil: >nil: GUISpell <nil: >nil:'
  32.         address command waitforport 'GUISpell'
  33.       end
  34.     if pos('GUISpell',(show(ports))) ~= 0 then do
  35.     address 'GUISpell' checkcallbackhook 'rexx:ttx/WordSpellCallBack.rexx' portname line column fold item
  36.         address 'GUISpell' check item
  37.       end
  38.     else
  39.       beepscreen
  40.   end
  41. exit
  42.